1500
How can I add a Zero-Lenght bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.MarkSearchColumn = False
		With .Columns
			.Add "Tasks"
			.Add("Start").Def(18) = 1
			.Add("End").Def(18) = 2
			.Add("Duration").Def(18) = 258
		End With
		With .Chart
			.FirstVisibleDate = #9/20/2010#
			.LevelCount = 2
			.PaneWidth(0) = 256
			.AllowLinkBars = False
		End With
		With .Items
			.AllowCellValueToItemBar = True
			h1 = .AddItem("M1")
			.AddBar h1,"Milestone",#9/29/2010#,#9/29/2010#
			.ItemBar(h1,"",20) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1499
Can I use bars like Milestone (Zero-Length bar) in SchedulePDM

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BarResizing(Item,Key)
	With G2antt1
		alert( .Items.SchedulePDM(Item,Key) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.MarkSearchColumn = False
		With .Columns
			.Add "Tasks"
			.Add("Start").Def(18) = 1
			.Add("End").Def(18) = 543
			.Add("Duration").Def(18) = 258
		End With
		With .ConditionalFormats.Add("%3")
			.Bold = True
			.ApplyTo = -1
		End With
		With .ConditionalFormats.Add("%3 = 0")
			.ForeColor = RGB(196,196,196)
			.ApplyTo = 3 ' &H3
		End With
		With .Chart
			.FirstVisibleDate = #9/20/2010#
			.LevelCount = 2
			.PaneWidth(0) = 256
			.Bars.Add("Task:Split").Shortcut = "Task"
		End With
		With .Items
			.AllowCellValueToItemBar = True
			h1 = .AddItem("M1")
			.AddBar h1,"Milestone",#9/27/2010#,#9/27/2010#
			.ItemBar(h1,"",20) = True
			h2 = .AddItem("T1")
			.AddBar h2,"Task",#9/27/2010#,#9/27/2010#
			.ItemBar(h2,"",543) = #9/27/2010#
			.ItemBar(h2,"",20) = True
			.AddLink "L1",h1,"",h2,""
			h3 = .AddItem("T2")
			.AddBar h3,"Task",#9/27/2010#,#9/27/2010#
			.ItemBar(h3,"",543) = #9/27/2010#
			.ItemBar(h3,"",20) = True
			.AddLink "L2",h1,"",h3,""
			.Link("L2",16) = 5
			h4 = .AddItem("M3")
			.AddBar h4,"Milestone",#9/27/2010#,#9/27/2010#
			.ItemBar(h4,"",20) = False
			.AddLink "L3",h1,"",h4,""
			.Link("L3",16) = 5
			.SchedulePDM 0,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1498
How can I prevent vertical scrolling when user clicks the overview part of the control

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		With .Items
			.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #8/3/1994#
			.PaneWidth(False) = 256
			.LevelCount = 2
			.UnitScale = 4096
			.FirstWeekDay = 1
			.OverviewVisible = 2
		End With
		.ColumnAutoResize = False
		.ContinueColumnScroll = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3
		End With
		.DataSource = rs
		.Items.AllowCellValueToItemBar = True
		.Columns.Item(2).Def(18) = 1
		.Columns.Item(4).Def(18) = 2
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1497
I need to specify the start and end dates of the bar to be the same, but no bars are shown. (recommended for bars with exBarKeepWorkingCount ) What I can do

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.MarkSearchColumn = False
		With .Columns
			.Add "Tasks"
			.Add("Start").Def(18) = 1
			.Add("End").Def(18) = 543
		End With
		With .Chart
			.FirstVisibleDate = #9/20/2006#
			.LevelCount = 2
			.PaneWidth(0) = 256
			.ShowEmptyBars = 0
		End With
		With .Items
			.AllowCellValueToItemBar = True
			h = .AddItem("Task 1")
			.AddBar h,"Task",#9/21/2006#,#9/21/2006#
			.ItemBar(h,"",543) = .ItemBar(h,"",1)
			.ItemBar(h,"",20) = True
			h = .AddItem("Task 2")
			.AddBar h,"Task",#9/21/2006#,#9/21/2006#
			.ItemBar(h,"",543) = #9/25/2006#
			.ItemBar(h,"",20) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1496
How can I display the end date to be the last visible date of task, instead the next day

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BarResize(Item,Key)
	With G2antt1
		.Items.SchedulePDM Item,Key
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BarResizing(Item,Key)
	With G2antt1
		.Items.SchedulePDM Item,Key
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.MarkSearchColumn = False
		.HeaderHeight = 36
		With .Columns
			.Add "Tasks"
			.Add("Start").Def(18) = 1
			With .Add("End")
				.HTMLCaption = "<b>End</b><br>Inclusive"
				.Def(18) = 543
				.Editor.EditType = 7
			End With
			.Add("End").Def(18) = 2
		End With
		With .ConditionalFormats.Add(1)
			.Bold = True
			.ApplyTo = 2 ' &H2
		End With
		With .Chart
			.FirstVisibleDate = #9/20/2006#
			.LevelCount = 2
			.PaneWidth(0) = 256
			.Bars.Add("Task:Split").Shortcut = "Task"
		End With
		With .Items
			.AllowCellValueToItemBar = True
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#9/21/2006#,#9/23/2006#
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#9/21/2006#,#9/26/2006#
			.AddLink "link",h1,"",h2,""
			.ItemBar(0,"<*>",20) = True
			.SchedulePDM 0,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1495
How do I hide the selection
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.MarkSearchColumn = False
		.SelForeColor = .ForeColor
		.SelBackColor = .BackColor
		.ShowFocusRect = False
		With .Columns
			With .Add("Format")
				.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
	"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
				.Def(17) = 1
			End With
		End With
		With .Items
			.AddItem 10
			.AddItem -8
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1494
How do I access the cells, or how do I get the values in the columns
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Columns
			.Add "C1"
			.Add "C2"
			.Add "C3"
		End With
		With .Items
			h = .AddItem("Item 1")
			.CellValue(h,1) = "SubItem 1.1"
			.CellValue(h,2) = "SubItem 1.2"
			alert( .CellValue(h,1) )
		End With
	End With
End Function
</SCRIPT>
</BODY>

1493
Is there any function I can use to indicate the Now() when using the ComputedFields, CondtionalFormats, ...
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add("Now").ComputedField = "date(``)"
		.Items.AddItem ""
	End With
End Function
</SCRIPT>
</BODY>

1492
How can I get the start and end points of the bar once the BarResize event occurs
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BarResize(Item,Key)
	With G2antt1
		alert( "Start: " )
		alert( .Items.ItemBar(Item,Key,1) )
		alert( "End: " )
		alert( .Items.ItemBar(Item,Key,2) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #12/31/2009#
			.LevelCount = 2
			.PaneWidth(False) = 96
			Set var_Bar = .Bars.Item("Task")
		End With
		.Columns.Add "Types"
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#1/4/2010#,#1/9/2010#,""
			.AddBar .AddItem("Task 2"),"Task",#1/4/2010#,#1/9/2010#,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1491
My chart displays hours, the question would be if possible to let user resizes the bars up to 1/2 hour, or a half an hour
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 22
		.Columns.Add "Task"
		With .Chart
			.AllowCreateBar = 1
			.LevelCount = 2
			.UnitScale = 65536
			.ResizeUnitScale = 1048576
			.ResizeUnitCount = 30
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/1/2001#
			.DrawGridLines = -1
			.Level(1).DrawGridLines = -1
		End With
		With .Items
			.AddItem "Task"
			.AddItem "Task"
			.AddItem "Task"
			.AddItem "Task"
			.AddItem "Task"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1490
How can I show the dates in the title
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #12/30/2002#
			.LevelCount = 2
			.PaneWidth(False) = 0
			.UnitScale = 65536
			.DrawGridLines = -1
			.Level(0).Alignment = 17 ' AlignmentEnum.exHOutside Or AlignmentEnum.CenterAlignment
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1489
If I vertically scroll the control the image flows fluently. But when I scroll on the horizontal chart's scrollbar the images only shows after I release the click button. Can I make it scroll fluently like the vertical scrollbar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Chart.PaneWidth(False) = 0
		.Chart.ToolTip = ""
	End With
End Function
</SCRIPT>
</BODY>

1488
How can I programmatically add a bar during the CreateBar event
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_CreateBar(Item,DateStart,DateEnd)
	With G2antt1
		With .Items
			k = .ItemBar(Item,"",256)
			.AddBar Item,"Order",DateStart,DateEnd,k,"your text"
		End With
		alert( .Items.ItemBar(Item,"",256) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Chart
			.AllowCreateBar = -1
			.PaneWidth(False) = 48
			.FirstVisibleDate = #12/28/2000#
			.LevelCount = 2
			.Bars.Copy "Task","Order"
		End With
		With .Items
			.AddItem 1
			.AddItem 2
			.AddItem 3
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1487
How can I move more bars by code
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Tasks"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.LevelCount = 2
			.PaneWidth(False) = 48
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#1/1/2001#,#1/6/2001#,"A"
			.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/7/2001#,"B"
			.ItemBar(0,"<*>",514) = 1
			.ItemBar(0,"<A*>",514) = 1
			.ItemBar(0,"<B*>",514) = 1
		End With
	End With
End Function
</SCRIPT>
</BODY>

1486
How can I move a bar by code
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Tasks"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.LevelCount = 2
			.PaneWidth(False) = 48
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/1/2001#,#1/6/2001#,"A"
			.ItemBar(h,"A",514) = 1
		End With
	End With
End Function
</SCRIPT>
</BODY>

1485
How can I clip the notes to the items zone only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.AntiAliasing = True
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 96
			.LevelCount = 2
		End With
		With .Items
			.AddItem 
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/5/2001#,#1/8/2001#,"1"
		End With
		With .Chart.Notes
			With .Add("1",G2antt1.Items.ItemByIndex(1),"1","<img>2</img>")
				.PartShadow(1) = False
				.PartBorderSize(1) = 0
				.ClearPartBackColor 1
				.PartCanMove(1) = True
				.RelativePosition = 0.5
				.PartVOffset(1) = -36
			End With
			.ClipTo = 2
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1484
How can I put two bars of various types, in the event of conflict do not coincide

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 22
		.Columns.Add "Task"
		.ScrollBySingleLine = True
		.BackColorAlternate = RGB(240,240,240)
		With .Chart
			.PaneWidth(False) = 48
			.FirstVisibleDate = #12/28/2000#
			.LevelCount = 2
			With .Bars.Item("Task")
				.OverlaidType = 515 ' OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
				.OverlaidGroup = "NewTask"
			End With
			With .Bars.Copy("Task","NewTask")
				.OverlaidType = 515 ' OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
				.OverlaidGroup = "Task"
				.Color = RGB(255,0,0)
			End With
		End With
		With .Items
			h1 = .AddItem("Default")
			h = .AddItem("Overlaid")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1","A1"
			.AddBar h,"NewTask",#1/3/2001#,#1/5/2001#,"A2","A2"
			.AddBar h,"NewTask",#1/4/2001#,#1/7/2001#,"A3","A3"
			.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A4","A4"
			h1 = .AddItem("Default")
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1483
How can I run trigger an event which, after clicking on the item/bar gives the key/name or item id
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseDown(Button,Shift,X,Y)
	With G2antt1
		item = .ItemFromPoint(-1,-1,column,hit)
		key = .Chart.BarFromPoint(-1,-1)
		alert( "Item:" )
		alert( item )
		alert( "Key:" )
		alert( key )
		alert( "CellValue(i,0):" )
		alert( .Items.CellValue(item,0) )
		.Items.ItemBar(item,key,33) = 255
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #12/29/2000#
			.PaneWidth(False) = 64
			.LevelCount = 2
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/4/2001#,#1/6/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1482
How can I change the check-boxes appearance

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.LinesAtRoot = -1
		With .Columns.Add("Default")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .Items
			h = .AddItem("Root")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
		End With
		With .VisualAppearance
			.Add 1,"XP:Button 3 12"
			.Add 2,"XP:Button 3 11"
			.Add 3,"XP:Button 3 10"
		End With
		.CheckImage(0) = 16777216
		.CheckImage(1) = 33554432
		.CheckImage(2) = 50331648
	End With
End Function
</SCRIPT>
</BODY>

1481
How can I change the color for the control's split bar (sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Default"
		.Background(18) = RGB(0,0,1)
		.BackColorLevelHeader = .BackColor
		With .Chart
			.LevelCount = 2
			.PaneWidth(False) = 64
			.HistogramVisible = True
			.HistogramHeight = 64
			.OverviewHeight = 48
			.OverviewVisible = -1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1480
Is it possible to display ONLY the working hours

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.LevelCount = 2
			With .Level(0)
				.Label = 4096
				.Alignment = 17 ' AlignmentEnum.exHOutside Or AlignmentEnum.CenterAlignment
			End With
			With .Level(1)
				.Label = "<%hh%>"
				.Count = 6
			End With
			.UnitWidth = 26
			.PaneWidth(False) = 0
			.NonworkingHours = 15728895
			.ShowNonworkingUnits = False
			.ShowNonworkingHours = False
		End With
	End With
End Function
</SCRIPT>
</BODY>

1479
How can I display the end of the day in the chart's header

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.LevelCount = 2
			With .Level(0)
				.Label = 4096
				.Alignment = 17 ' AlignmentEnum.exHOutside Or AlignmentEnum.CenterAlignment
			End With
			With .Level(1)
				.Label = "<%hh%>"
				.Count = 6
				.ReplaceLabel("08") = "<b>8</b> <font ;6>am"
				.ReplaceLabel("14") = "<b>8</b> <font ;6>pm"
			End With
			.UnitWidth = 26
			.PaneWidth(False) = 0
			.NonworkingHours = 15728895
			.ShowNonworkingUnits = False
			.ShowNonworkingHours = False
		End With
	End With
End Function
</SCRIPT>
</BODY>

1478
How can I display the +/- expanding buttons in the chart section

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		.Indent = 13
		.HasButtons = 3
		With .Chart
			.FirstVisibleDate = #12/25/2010#
			.LevelCount = 2
			.PaneWidth(False) = 0
			.ColumnsFormatLevel = "0"
			.SelBackColor = G2antt1.SelBackColor
			.SelForeColor = G2antt1.SelForeColor
		End With
		With .Columns.Add("P1")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .Items
			h = .AddItem("Root")
			.AddBar .InsertItem(h,,"Child 1"),"Task",#1/2/2011#,#1/5/2011#
			.AddBar .InsertItem(h,,"Child 2"),"Task",#1/4/2011#,#1/7/2011#
			.AddBar .InsertItem(h,,"Child 3"),"Task",#1/7/2011#,#1/8/2011#
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1477
Is it possible to display the columns in the chart aligned to the right

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 24
		.Columns.Add "Tasks"
		With .Columns.Add("Key")
			.Def(18) = 0
			.Visible = False
			.Alignment = 2
		End With
		With .Chart
			.FirstVisibleDate = #12/30/2000#
			.LevelCount = 2
			.PaneWidth(False) = 0
			.ColumnsFormatLevel = "|,1:52"
		End With
		With .Items
			.AllowCellValueToItemBar = True
			.AddBar .AddItem("Task 1"),"Task",#1/3/2001#,#1/7/2001#
			.AddBar .AddItem("Task 2"),"Split",#1/3/2001#,#1/7/2001#
			.AddBar .AddItem("Task 3"),"Progress",#1/3/2001#,#1/7/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1476
How can I display a border in the chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 24
		.Columns.Add "Tasks"
		With .Columns.Add("Key")
			.Def(18) = 0
			.Visible = False
			.Alignment = 1
			.Def(5) = 255
		End With
		With .Chart
			.FirstVisibleDate = #12/30/2000#
			.LevelCount = 2
			.PaneWidth(False) = 0
			.ColumnsFormatLevel = "1:52,\""\""[bg=255]:2"
		End With
		With .Items
			.AllowCellValueToItemBar = True
			.AddBar .AddItem("Task 1"),"Task",#1/3/2001#,#1/7/2001#
			.AddBar .AddItem("Task 2"),"Split",#1/3/2001#,#1/7/2001#
			.AddBar .AddItem("Task 3"),"Progress",#1/3/2001#,#1/7/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1475
How can I change the font to display the columns in the chart (Method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 24
		.Columns.Add "Tasks"
		With .Columns.Add("Key")
			.Def(18) = 0
			.Visible = False
		End With
		With .ConditionalFormats.Add(1)
			.Bold = True
			.ApplyTo = 1 ' &H1
		End With
		With .Chart
			.FirstVisibleDate = #12/30/2000#
			.LevelCount = 2
			.PaneWidth(False) = 48
			.ColumnsFormatLevel = "1"
		End With
		With .Items
			.AllowCellValueToItemBar = True
			.AddBar .AddItem("Task 1"),"Task",#1/3/2001#,#1/7/2001#
			.AddBar .AddItem("Task 2"),"Split",#1/3/2001#,#1/7/2001#
			.AddBar .AddItem("Task 3"),"Progress",#1/3/2001#,#1/7/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1474
How can I change the font to display the columns in the chart (Method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 24
		.Columns.Add "Tasks"
		With .Columns.Add("Key")
			.Def(18) = 0
			.Visible = False
		End With
		With .Chart
			.FirstVisibleDate = #12/30/2000#
			.LevelCount = 2
			.PaneWidth(False) = 48
			.ColumnsFormatLevel = "1"
			.ColumnsFont = G2antt1.Font
			With .ColumnsFont
				.Size = 12
				.Name = "Tahoma"
			End With
		End With
		With .Items
			.AllowCellValueToItemBar = True
			.AddBar .AddItem("Task 1"),"Task",#1/3/2001#,#1/7/2001#
			.AddBar .AddItem("Task 2"),"Split",#1/3/2001#,#1/7/2001#
			.AddBar .AddItem("Task 3"),"Progress",#1/3/2001#,#1/7/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1473
How can I change the column's background color when it is displayed on the chart (Method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Columns.Add("Key")
			.Def(18) = 0
			.Visible = False
		End With
		With .Chart
			.FirstVisibleDate = #12/30/2000#
			.LevelCount = 2
			.PaneWidth(False) = 48
			.ColumnsFormatLevel = "1[bg=255]:52"
		End With
		With .Items
			.AllowCellValueToItemBar = True
			.AddBar .AddItem("Task 1"),"Task",#1/3/2001#,#1/7/2001#
			.AddBar .AddItem("Task 2"),"Split",#1/3/2001#,#1/7/2001#
			.AddBar .AddItem("Task 3"),"Progress",#1/3/2001#,#1/7/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1472
How can I change the column's background color when it is displayed on the chart (Method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Columns.Add("Key")
			.Def(18) = 0
			.Visible = False
			.Def(4) = 15790320
		End With
		With .Chart
			.FirstVisibleDate = #12/30/2000#
			.LevelCount = 2
			.PaneWidth(False) = 48
			.ColumnsFormatLevel = "1:52"
		End With
		With .Items
			.AllowCellValueToItemBar = True
			.AddBar .AddItem("Task 1"),"Task",#1/3/2001#,#1/7/2001#
			.AddBar .AddItem("Task 2"),"Split",#1/3/2001#,#1/7/2001#
			.AddBar .AddItem("Task 3"),"Progress",#1/3/2001#,#1/7/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1471
Can the chart display any column

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Columns.Add("Start")
			.Def(18) = 1
			.Visible = False
			.Alignment = 0
		End With
		With .Columns.Add("End")
			.Def(18) = 2
			.Visible = False
			.Alignment = 2
		End With
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.LevelCount = 2
			.PaneWidth(False) = 48
			.ColumnsFormatLevel = "1:52,|,2:52"
		End With
		With .Items
			.AllowCellValueToItemBar = True
			.AddBar .AddItem("Task 1"),"Task",#1/3/2001#,#1/7/2001#
			.AddBar .AddItem("Task 2"),"Task",#1/4/2001#,#1/8/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1470
Is it possible to display a check-box column on the chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Tasks"
		With .Columns.Add("Check")
			.Def(0) = True
			.Visible = False
		End With
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.LevelCount = 2
			.PaneWidth(False) = 48
			.ColumnsFormatLevel = "1"
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#1/3/2001#,#1/7/2001#
			.AddBar .AddItem("Task 2"),"Task",#1/4/2001#,#1/8/2001#
		End With
	End With
End Function
</SCRIPT>
</BODY>

1469
Is it possible to disable the cell's editor context menu
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Columns.Add("Edit").Editor
			.EditType = 1
			.Option(202) = False
		End With
		With .Items
			.AddItem 10
			.AddItem 20
		End With
	End With
End Function
</SCRIPT>
</BODY>

1468
How can I find a value in a drop down editor
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Columns.Add("DropDownList").Editor
			.EditType = 3
			.AddItem 1,"DDList 1"
			.AddItem 2,"DDList 2"
			.AddItem 3,"DDList 3"
		End With
		With .Columns.Add("DropDown").Editor
			.EditType = 2
			.AddItem 1,"DDType 1"
			.AddItem 2,"DDType 2"
			.AddItem 3,"DDType 3"
		End With
		With .Items
			.CellValue(.AddItem(1),1) = G2antt1.Columns.Item(1).Editor.FindItem(1)
			.CellValue(.AddItem(2),1) = G2antt1.Columns.Item(1).Editor.FindItem(2)
		End With
	End With
End Function
</SCRIPT>
</BODY>

1467
What is the difference between DropDownType and DropDownListType
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Columns.Add("DropDownList").Editor
			.EditType = 3
			.AddItem 1,"First item"
			.AddItem 2,"Second item"
			.AddItem 3,"Third item"
		End With
		With .Columns.Add("DropDown").Editor
			.EditType = 2
			.AddItem 1,"First item"
			.AddItem 2,"Second item"
			.AddItem 3,"Third item"
		End With
		With .Items
			.CellValue(.AddItem(1),1) = "Any"
			.CellValue(.AddItem(2),1) = "Any"
		End With
	End With
End Function
</SCRIPT>
</BODY>

1466
How can I mark or enlarge the selected bars, so I have a clear frame around (Method 3)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 32
		With .VisualAppearance
			.Add 1,"c:\exontrol\images\normal.ebn"
			.Add 2,"CP:1 -2 -2 2 2"
		End With
		With .Chart
			.PaneWidth(0) = 48
			.FirstVisibleDate = #1/1/2002#
			.SelBarColor = &H2ff0000
			.Bars.Item("Task").Color = &H1000000
		End With
		.Columns.Add "Task"
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2002#,#1/4/2002#,"A"
			.AddBar h,"Task",#1/6/2002#,#1/10/2002#,"B"
			.AddBar h,"Task",#1/11/2002#,#1/14/2002#,"C"
			.ItemBar(h,"A",257) = True
			.ItemBar(h,"B",257) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1465
How can I mark or enlarge the selected bars, so I have a clear frame around (Method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 32
		With .VisualAppearance
			.Add 1,"c:\exontrol\images\normal.ebn"
			.Add 2,"CP:1 -2 -2 2 2"
		End With
		With .Chart
			.PaneWidth(0) = 48
			.FirstVisibleDate = #1/1/2002#
			.SelBarColor = &H2000000
			.Bars.Item("Task").Color = &H1000000
		End With
		.Columns.Add "Task"
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2002#,#1/4/2002#,"A"
			.AddBar h,"Task",#1/6/2002#,#1/10/2002#,"B"
			.AddBar h,"Task",#1/11/2002#,#1/14/2002#,"C"
			.ItemBar(h,"A",257) = True
			.ItemBar(h,"B",257) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1464
How can I mark or enlarge the selected bars, so I have a clear frame around (Method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 32
		With .VisualAppearance
			.Add 1,"gBFLBCJwBAEHhEJAEGg4BNkMQAAYAQGKIYBkAKBQAGaAoDDYNQwQwAAwjIKEEwsACEIrjKCVIgkHYJRjGEZxMAsEwjAoaQChEZRUhEMgxDDIIxAJIcaw0GSEZwgOQZB" & _
	"iOEYnDANMgzDLMZR7DajYymSA6LiKNo+QjKFB0NLMVRtEIIIzCSCaNomT4DS4NIi2DYcVhhMqBYbtCZZBo2FpZUxXdL0BJMVxbHKYJikW4pVjoAJ+TxccjVDQNJyLQ6r" & _
	"YzuAAKNpuO58RbdGDQHA9KyfLCEcTxYAMbp6X5kaBZVp2VCMRzbTLUIDzPNVCTrNIaJioAaMeiCG5NUzieqRNalLABFjZMIHDbtGynDIJZruW52+CLIZpWbEOiRXr2Tx" & _
	"xgGYp5Fie5mAYBgIgSFDrDOIZUmQZYiECXJUjIEQ3lUGgbEIRQcg+Hg8DEFxYFuOR/i+X5znufh/omBgCgCVwjn4BoBmCCAmAqApgkefgMgOYQID4DoELsUgTgUYYIC4" & _
	"F4GGGSAaBuBxhhgfgggUYgog4EYJGIaBJn6ChiBiLgsgkIpoj4J4BCMSJWDaDZjgiZgCEAQCAgA=="
			.Add 2,"CP:1 -2 -2 2 2"
		End With
		With .Chart
			.FirstVisibleDate = #1/1/2002#
			.SelBarColor = &H2000000
			.PaneWidth(0) = 48
		End With
		.Columns.Add "Task"
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2002#,#1/4/2002#,"A"
			.AddBar h,"Task",#1/6/2002#,#1/10/2002#,"B"
			.AddBar h,"Task",#1/11/2002#,#1/14/2002#,"C"
			.ItemBar(h,"A",257) = True
			.ItemBar(h,"B",257) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1463
How can I load my table from an Access 2007, using ADO
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		With .Items
			.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #8/3/1994#
			.PaneWidth(False) = 256
			.LevelCount = 2
			.UnitScale = 4096
			.FirstWeekDay = 1
			.OverviewVisible = 2
		End With
		.ColumnAutoResize = False
		.ContinueColumnScroll = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3
		End With
		.DataSource = rs
		.Items.AllowCellValueToItemBar = True
		.Columns.Item(2).Def(18) = 1
		.Columns.Item(4).Def(18) = 2
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1462
Is it possible to enumerate the links without enumerating them

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.AntiAliasing = True
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 128
			.NonworkingDays = 0
			.LinksWidth = 2
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/6/2001#,#1/8/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/10/2001#,#1/12/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
			h4 = .AddItem("Task 4")
			.AddBar h4,"Task",#1/14/2001#,#1/16/2001#,"K4"
			.AddLink "L3",h3,"K3",h4,"K4"
			.Link("<L*>",11) = False
		End With
	End With
End Function
</SCRIPT>
</BODY>

1461
How can I display a vertical line in the chart
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_Click()
	With G2antt1
		With .Chart
			.MarkNowColor = RGB(255,0,0)
			.MarkNow = .DateFromPoint(-1,-1)
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.FirstVisibleDate = #3/13/2012#
			.PaneWidth(False) = 0
			.LevelCount = 2
			.MarkNowColor = RGB(0,0,0)
			.MarkNowWidth = 3
			.UnitWidth = 32
			.ResizeUnitScale = 65536
		End With
	End With
End Function
</SCRIPT>
</BODY>

1460
How can I use the MarkNowColor to mark a time line different then the time on the machine

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.FirstVisibleDate = #3/13/2012#
			.PaneWidth(False) = 0
			.LevelCount = 2
			.Level(0).Label = 1048576
			With .Level(1)
				.Label = "<%ss%>"
				.Count = 15
			End With
			.MarkNowColor = RGB(255,0,0)
			.MarkNowWidth = 3
			.MarkNow = #3/13/2012 0:03:20 AM#
		End With
	End With
End Function
</SCRIPT>
</BODY>

1459
Is it possible to show the current date time using a delay

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.PaneWidth(False) = 0
			.LevelCount = 2
			.Level(0).Label = 1048576
			With .Level(1)
				.Label = "<%ss%>"
				.Count = 15
			End With
			.MarkNowColor = RGB(0,0,255)
			.MarkNowWidth = 3
			.MarkNowDelay = 0.00069444
		End With
		.Columns.Add "Tasks"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/1/2008#,#1/1/2018#
		End With
	End With
End Function
</SCRIPT>
</BODY>

1458
What are the options to show the links between bars

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.AntiAliasing = True
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 128
			.NonworkingDays = 0
			.LinksWidth = 2
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddItem ""
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddItem ""
			.AddBar h2,"Task",#1/6/2001#,#1/8/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			h3 = .AddItem("Task 3")
			.AddItem ""
			.AddBar h3,"Task",#1/12/2001#,#1/14/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
			.Link("L2",15) = -1
			h4 = .AddItem("Task 4")
			.AddBar h4,"Task",#1/18/2001#,#1/20/2001#,"K4"
			.AddLink "L3",h3,"K3",h4,"K4"
			.Link("L3",15) = 1
			.AddItem ""
			h5 = .AddItem("Task 5")
			.AddBar h5,"Task",#1/22/2001#,#1/24/2001#,"K5"
			.AddLink "L4",h4,"K4",h5,"K5"
			.Link("L4",15) = 2
		End With
	End With
End Function
</SCRIPT>
</BODY>

1457
Is it possible to specify the link between bars to be a wider line

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 128
			.NonworkingDays = 0
			.LinksStyle = 0
			.LinksWidth = 2
			.LinksColor = RGB(255,0,0)
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/6/2001#,#1/8/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/10/2001#,#1/12/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
		End With
	End With
End Function
</SCRIPT>
</BODY>

1456
Is it possible to create a link between the two specified bars so that the link was a straight line

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Task"
		.AntiAliasing = True
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 128
			.NonworkingDays = 0
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/6/2001#,#1/8/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			.Link("L1",9) = 0
			.Link("L1",10) = 2
			.Link("L1",8) = 255
			.Link("L1",15) = 2
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/10/2001#,#1/12/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
		End With
	End With
End Function
</SCRIPT>
</BODY>

1455
I associate the bars with my columns, Start and End, but can not get it working for bars with non-empty keys. What am I doing wrong

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Columns
			.Add "Tasks"
			With .Add("Start")
				.Def(18) = 1
				.Def(19) = "A"
			End With
			With .Add("End")
				.Def(18) = 2
				.Def(19) = "A"
			End With
		End With
		.Items.AllowCellValueToItemBar = True
		With .Chart
			.PaneWidth(False) = 256
			.FirstVisibleDate = #1/1/2002#
			.LevelCount = 2
			.Bars.Item("Task").OverlaidType = 3
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#1/4/2002#,#1/8/2002#,"A","A"
			h = .AddItem("Task 2")
			.AddBar h,"Task",#1/6/2002#,#1/10/2002#,"A","A"
			.AddBar h,"Task",#1/4/2002#,#1/8/2002#,"B","B"
			.ItemBar(h,"B",33) = 255
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1454
The right pane needs to show ONLY the hours 6am to 9pm (every hour) for one day only and the user should not to be able to scroll left or right nor see any other hours. How can I do that

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Chart
			.LevelCount = 2
			.ScrollRange(0) = #1/1/2001#
			.ScrollRange(1) = #1/1/2001#
			.UnitScale = 65536
			.NonworkingHours = 12582975
			.ShowNonworkingUnits = False
			.ShowNonworkingHours = False
			.Level(0).Alignment = 17 ' AlignmentEnum.exHOutside Or AlignmentEnum.CenterAlignment
			.UnitWidth = 18
			.PaneWidth(True) = 294
			.ScrollBar = False
		End With
		.OnResizeControl = 128
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1453
Is it possible to count only a specified type of bars without enumerating them
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Tasks"
		.Chart.FirstVisibleDate = #1/1/2001#
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1","K1"
			.AddBar .AddItem("Task 2"),"Progress",#1/3/2001#,#1/5/2001#
			.AddBar .AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"P3","P3"
			alert( "K*" )
			alert( .ItemBar(0,"<K*>",256) )
			alert( "K* P*" )
			alert( .ItemBar(0,"<K* P*>",256) )
		End With
	End With
End Function
</SCRIPT>
</BODY>

1452
How can I count or get the numbers of the bars in the chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Tasks"
		.Chart.FirstVisibleDate = #1/1/2001#
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1","K1"
			.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"A2","A2"
			.AddBar .AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K3","K3"
			alert( "All" )
			alert( .ItemBar(0,"<*>",256) )
			alert( "A*" )
			alert( .ItemBar(0,"<A*>",256) )
			alert( "K*" )
			alert( .ItemBar(0,"<K*>",256) )
		End With
	End With
End Function
</SCRIPT>
</BODY>

1451
Is it possible to remove only specified bars from ALL items at once
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Tasks"
		.Chart.FirstVisibleDate = #1/1/2001#
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1","K1"
			.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"A2","A2"
			.AddBar .AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K3","K3"
			.RemoveBar 0,"<K*>"
		End With
	End With
End Function
</SCRIPT>
</BODY>

1450
How can I remove all bars from the chart (method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Tasks"
		.Chart.FirstVisibleDate = #1/1/2001#
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1","K1"
			.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"A2","A2"
			.AddBar .AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K3","K3"
			.ClearBars 0
		End With
	End With
End Function
</SCRIPT>
</BODY>

1449
How can I remove all bars from the chart (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Tasks"
		.Chart.FirstVisibleDate = #1/1/2001#
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1","K1"
			.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"A2","A2"
			.AddBar .AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K3","K3"
			.RemoveBar 0,"<*>"
		End With
	End With
End Function
</SCRIPT>
</BODY>

1448
Is it possible to update at once a property for several bars without enumerating them
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Tasks"
		.Chart.FirstVisibleDate = #1/1/2001#
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1","K1"
			.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"A2","A2"
			.AddBar .AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K3","K3"
			.ItemBar(0,"<K*>",33) = 255
		End With
	End With
End Function
</SCRIPT>
</BODY>

1447
Is it possible to update at once a property of ALL bars without enumerating them
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add "Tasks"
		.Chart.FirstVisibleDate = #1/1/2001#
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1","K1"
			.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"A2","A2"
			.AddBar .AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K3","K3"
			.ItemBar(0,"<*>",33) = 255
		End With
	End With
End Function
</SCRIPT>
</BODY>

1446
How do I prevent selecting a new item when selecting a bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #12/29/2000#
			.PaneWidth(False) = 64
			.LevelCount = 2
			.SelectOnClick = False
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1"
			.AddBar .AddItem("Task 2"),"Task",#1/4/2001#,#1/6/2001#,"K2"
			.AddBar .AddItem("Task 3"),"Task",#1/8/2001#,#1/10/2001#,"K3"
			.SelectItem(.FirstVisibleItem) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1445
Is it possible to find out all incoming bars ( recursively )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		b = .Chart.BarFromPoint(-1,-1)
		i = .ItemFromPoint(-1,-1,c,hit)
		alert( .Items.ItemBar(i,b,542) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 96
			.NonworkingDays = 0
			.AllowLinkBars = True
			.AllowCreateBar = 1
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"A","A"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/5/2001#,#1/7/2001#,"B","B"
			.AddLink "L1",h1,"A",h2,"B"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"C","C"
			.AddLink "L2",h2,"B",h3,"C"
			h4 = .AddItem("Task 4")
			.AddBar h4,"Task",#1/8/2001#,#1/10/2001#,"D","D"
			.AddLink "L3",h1,"A",h4,"D"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1444
How do I find the incoming bars
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		b = .Chart.BarFromPoint(-1,-1)
		i = .ItemFromPoint(-1,-1,c,hit)
		alert( .Items.ItemBar(i,b,541) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 96
			.NonworkingDays = 0
			.AllowLinkBars = True
			.AllowCreateBar = 1
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"A","A"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/5/2001#,#1/7/2001#,"B","B"
			.AddLink "L1",h1,"A",h2,"B"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"C","C"
			.AddLink "L2",h2,"B",h3,"C"
			h4 = .AddItem("Task 4")
			.AddBar h4,"Task",#1/8/2001#,#1/10/2001#,"D","D"
			.AddLink "L3",h1,"A",h4,"D"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1443
Is it possible to find out all incoming links ( recursively ). Incoming link is a link from another bar to the current bar
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		b = .Chart.BarFromPoint(-1,-1)
		i = .ItemFromPoint(-1,-1,c,hit)
		alert( .Items.ItemBar(i,b,536) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 96
			.NonworkingDays = 0
			.AllowLinkBars = True
			.AllowCreateBar = 1
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"A","A"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/5/2001#,#1/7/2001#,"B","B"
			.AddLink "L1",h1,"A",h2,"B"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"C","C"
			.AddLink "L2",h2,"B",h3,"C"
			h4 = .AddItem("Task 4")
			.AddBar h4,"Task",#1/8/2001#,#1/10/2001#,"D","D"
			.AddLink "L3",h1,"A",h4,"D"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1442
How do I find the incoming links. Incoming link is link from another bar to the current bar
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		b = .Chart.BarFromPoint(-1,-1)
		i = .ItemFromPoint(-1,-1,c,hit)
		alert( .Items.ItemBar(i,b,534) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 96
			.NonworkingDays = 0
			.AllowLinkBars = True
			.AllowCreateBar = 1
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"A","A"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/5/2001#,#1/7/2001#,"B","B"
			.AddLink "L1",h1,"A",h2,"B"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"C","C"
			.AddLink "L2",h2,"B",h3,"C"
			h4 = .AddItem("Task 4")
			.AddBar h4,"Task",#1/8/2001#,#1/10/2001#,"D","D"
			.AddLink "L3",h1,"A",h4,"D"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1441
Is it possible to find out all outgoing bars ( recursively )
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		b = .Chart.BarFromPoint(-1,-1)
		i = .ItemFromPoint(-1,-1,c,hit)
		alert( .Items.ItemBar(i,b,532) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 96
			.NonworkingDays = 0
			.AllowLinkBars = True
			.AllowCreateBar = 1
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"A","A"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/5/2001#,#1/7/2001#,"B","B"
			.AddLink "L1",h1,"A",h2,"B"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"C","C"
			.AddLink "L2",h2,"B",h3,"C"
			h4 = .AddItem("Task 4")
			.AddBar h4,"Task",#1/8/2001#,#1/10/2001#,"D","D"
			.AddLink "L3",h1,"A",h4,"D"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1440
How do I find the outgoing bars
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		b = .Chart.BarFromPoint(-1,-1)
		i = .ItemFromPoint(-1,-1,c,hit)
		alert( .Items.ItemBar(i,b,531) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 96
			.NonworkingDays = 0
			.AllowLinkBars = True
			.AllowCreateBar = 1
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"A","A"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/5/2001#,#1/7/2001#,"B","B"
			.AddLink "L1",h1,"A",h2,"B"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"C","C"
			.AddLink "L2",h2,"B",h3,"C"
			h4 = .AddItem("Task 4")
			.AddBar h4,"Task",#1/8/2001#,#1/10/2001#,"D","D"
			.AddLink "L3",h1,"A",h4,"D"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1439
Is it possible to find out all outgoing links ( recursively ). Outgoing link is link from a bar to another bar
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		b = .Chart.BarFromPoint(-1,-1)
		i = .ItemFromPoint(-1,-1,c,hit)
		alert( .Items.ItemBar(i,b,526) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 96
			.NonworkingDays = 0
			.AllowLinkBars = True
			.AllowCreateBar = 1
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"A","A"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/5/2001#,#1/7/2001#,"B","B"
			.AddLink "L1",h1,"A",h2,"B"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"C","C"
			.AddLink "L2",h2,"B",h3,"C"
			h4 = .AddItem("Task 4")
			.AddBar h4,"Task",#1/8/2001#,#1/10/2001#,"D","D"
			.AddLink "L3",h1,"A",h4,"D"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1438
How do I find the outgoing links. Outgoing link is link from a bar to another bar
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		b = .Chart.BarFromPoint(-1,-1)
		i = .ItemFromPoint(-1,-1,c,hit)
		alert( .Items.ItemBar(i,b,524) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 96
			.NonworkingDays = 0
			.AllowLinkBars = True
			.AllowCreateBar = 1
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"A","A"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/5/2001#,#1/7/2001#,"B","B"
			.AddLink "L1",h1,"A",h2,"B"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"C","C"
			.AddLink "L2",h2,"B",h3,"C"
			h4 = .AddItem("Task 4")
			.AddBar h4,"Task",#1/8/2001#,#1/10/2001#,"D","D"
			.AddLink "L3",h1,"A",h4,"D"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1437
How do I select a bar using the right-click
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseDown(Button,Shift,X,Y)
	With G2antt1
		With .Items
			.ItemBar(0,"<*>",257) = False
			.ItemBar(G2antt1.ItemFromPoint(-1,-1,c,hit),G2antt1.Chart.BarFromPoint(-1,-1),257) = True
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #12/29/2000#
			.PaneWidth(False) = 64
			.LevelCount = 2
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1"
			.AddBar .AddItem("Task 2"),"Task",#1/4/2001#,#1/6/2001#,"K2"
			.AddBar .AddItem("Task 3"),"Task",#1/8/2001#,#1/10/2001#,"K3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1436
How can I add or change the padding (spaces) for captions in the control's header
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add("Padding-Left").Def(52) = 18
		With .Columns.Add("Padding-Right")
			.Def(53) = 18
			.HeaderAlignment = 2
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1435
Do you have any plans to add cell spacing and cell padding to the cells

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DrawGridLines = -2
		With .Columns.Add("Padding-Left")
			.Def(0) = True
			.Def(48) = 18
		End With
		.Columns.Add("No-Padding").Def(0) = True
		.Columns.Add("Empty").Position = 0
		With .Items
			.CellValue(.AddItem("Item A.1"),1) = "Item A.2"
			.CellValue(.AddItem("Item B.1"),1) = "Item B.2"
			.CellValue(.AddItem("Item C.1"),1) = "Item C.2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1434
Can I display somehow the filter just on the top of the list, with an editor associated to each column

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		With .Items
			.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
		End With
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_Change(Item,ColIndex,NewValue)
	With G2antt1
		alert( "Locked:" )
		alert( .Items.IsItemLocked(Item) )
		With .Columns.Item(ColIndex)
			.Filter = NewValue
			.FilterType = 3
		End With
		.ApplyFilter 
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseUp(Button,Shift,X,Y)
	With G2antt1
		.Edit .Items.LockedItem(0,0)
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		.ContinueColumnScroll = False
		.Chart.FirstVisibleDate = #8/3/1994#
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3
		End With
		.DataSource = rs
		With .Items
			.LockedItemCount(0) = 2
			h = .LockedItem(0,0)
			.CellEditor(h,0).EditType = 1
			h = .LockedItem(0,1)
			.ItemHeight(h) = 4
			.ItemDivider(h) = 0
			.SelectableItem(h) = False
		End With
	End With
End Function
</SCRIPT>
</BODY>

1433
Is it possible to display information about the firing events
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_Event(EventID)
	With G2antt1
		alert( .EventParam(-2) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>

1432
I need to specify the start and end dates of the bar to be the same, but to keep count of the working units. Is it possible

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.MarkSearchColumn = False
		With .Columns
			.Add "Tasks"
			.Add("Start").Def(18) = 1
			.Add("End").Def(18) = 543
		End With
		With .Chart
			.FirstVisibleDate = #9/20/2006#
			.LevelCount = 2
			.PaneWidth(0) = 256
			.ShowEmptyBars = 1
			.Bars.Add("Task:Split").Shortcut = "Task"
		End With
		With .Items
			.AllowCellValueToItemBar = True
			.AddBar .AddItem("Task 1"),"Task",#9/21/2006#,#9/21/2006#
			.AddBar .AddItem("Task 2"),"Task",#9/22/2006#,#9/25/2006#
			.AddBar .AddItem("Task 3"),"Task",#9/25/2006#,#9/25/2006#
			.ItemBar(0,"<*>",20) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1431
I need to specify the start and end dates of the bar to be the same, but no bars are shown. (NOT recommended for bars with exBarKeepWorkingCount ) What I can do

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.MarkSearchColumn = False
		With .Columns
			.Add "Tasks"
			.Add("Start").Def(18) = 1
			.Add("End").Def(18) = 543
		End With
		With .Chart
			.FirstVisibleDate = #9/20/2006#
			.LevelCount = 2
			.PaneWidth(0) = 256
			.ShowEmptyBars = 1
		End With
		With .Items
			.AllowCellValueToItemBar = True
			.AddBar .AddItem("Task 1"),"Task",#9/21/2006#,#9/21/2006#
			.AddBar .AddItem("Task 2"),"Task",#9/22/2006#,#9/22/2006#
			.AddBar .AddItem("Task 3"),"Task",#9/25/2006#,#9/25/2006#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1430
I need my chart to display the end date with on day less. How can I do this (Method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.MarkSearchColumn = False
		With .Columns
			.Add "Tasks"
			With .Add("Start")
				.Def(18) = 1
				.Editor.EditType = 7
			End With
			With .Add("End")
				.Def(18) = 543
				.Editor.EditType = 7
			End With
		End With
		With .Chart
			.FirstVisibleDate = #9/20/2006#
			.LevelCount = 2
			.PaneWidth(0) = 256
			.NonworkingDays = 0
		End With
		With .Items
			.AllowCellValueToItemBar = True
			.AddBar .AddItem("Task 1"),"Task",#9/21/2006#,#9/24/2006#
			.AddBar .AddItem("Task 2"),"Task",#9/22/2006#,#9/25/2006#
			.AddBar .AddItem("Task 3"),"Task",#9/23/2006#,#9/26/2006#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1429
Is it possible to change the width of a specified time unit

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.PaneWidth(False) = 0
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2008#
			.AllowInsideZoom = True
			.AllowResizeInsideZoom = False
			.InsideZoomOnDblClick = False
			.DefaultInsideZoomFormat.BackColorChart = RGB(255,0,255)
			With .InsideZooms
				.SplitBaseLevel = False
				.DefaultWidth = 18
				With .Add(#1/15/2008#)
					.AllowInsideFormat = False
					.Width = 128
				End With
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1428
The level unit of the chart is set to day, so i'd like to set the whole background of the current day. Is it possible to set a background color only on the current day (Method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.PaneWidth(False) = 0
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2008#
			.AllowInsideZoom = True
			.AllowResizeInsideZoom = False
			.InsideZoomOnDblClick = False
			.DefaultInsideZoomFormat.BackColorChart = RGB(255,0,0)
			With .InsideZooms
				.SplitBaseLevel = False
				.DefaultWidth = 18
				.Add(#1/15/2008#).AllowInsideFormat = False
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1427
The level unit of the chart is set to day, so i'd like to set the whole background of the current day. Is it possible to set a background color only on the current day (Method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.PaneWidth(False) = 0
			.FirstVisibleDate = #1/1/2008#
			.MarkTodayColor = .BackColor
			.LevelCount = 2
			.MarkSelectDateColor = &H7fff0000
			.SelectLevel = 1
			.SelectDate(#1/15/2008#) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1426
How can I change the layout of my columns when using the exCRD

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DrawGridLines = -2
		.DefaultItemHeight = 36
		With .Columns
			With .Add("Column1")
				.Visible = False
				.Editor.EditType = 1
			End With
			With .Add("Column2")
				.Visible = False
				.Editor.EditType = 1
			End With
			.Add("Column3").Visible = False
			With .Add("FormatLevel")
				.FormatLevel = "(0/1),2"
				.Def(32) = .FormatLevel
			End With
		End With
		With .Items
			h = .AddItem("Cell 1.1")
			.CellValue(h,1) = "Cell 1.2"
			.CellValue(h,2) = "Cell 1.3"
			h = .AddItem("Cell 2.1")
			.CellValue(h,1) = "Cell 2.2"
			.CellValue(h,2) = "Cell 2.3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1425
How can I overlaid a single bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 22
		.Columns.Add "Task"
		.ScrollBySingleLine = True
		.BackColorAlternate = RGB(240,240,240)
		With .Chart
			.AllowCreateBar = 1
			.PaneWidth(False) = 48
			.FirstVisibleDate = #12/28/2000#
			.LevelCount = 2
			With .Bars.Item("Task")
				.OverlaidGroup = "OTask"
				.OverlaidType = 0
				.Def(3) = "<%=%9%>"
			End With
			With .Bars.Copy("Task","OTask")
				.OverlaidGroup = "Task"
				.OverlaidType = 8196 ' OverlaidBarsTypeEnum.exOverlaidBarsStrict Or OverlaidBarsTypeEnum.exOverlaidBarsCascade
			End With
		End With
		With .Items
			h1 = .AddItem("Default")
			h = .AddItem("Overlaid")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
			.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A3"
			.AddBar h,"OTask",#1/3/2001#,#1/5/2001#,"A2"
			.ItemBar(h,"A2",33) = 255
			.AddBar h,"Task",#1/5/2001#,#1/8/2001#,"A4"
			h1 = .AddItem("Default")
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1424
How can I use the exOverlaidBarsCascade, exBarOverlaidKey

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_CreateBar(Item,DateStart,DateEnd)
	With G2antt1
		.Items.ItemBar(Item,"newbar",52) = "Level0"
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 22
		.Columns.Add "Task"
		.ScrollBySingleLine = True
		.BackColorAlternate = RGB(240,240,240)
		With .Chart
			.AllowCreateBar = 1
			.PaneWidth(False) = 48
			.FirstVisibleDate = #12/28/2000#
			.LevelCount = 2
			With .Bars.Item("Task")
				.OverlaidType = 4
				.Def(3) = "<%=%9%>"
			End With
		End With
		With .Items
			h1 = .AddItem("Default")
			h = .AddItem("Overlaid")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
			.ItemBar(h,"A1",52) = "Level0"
			.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A3"
			.ItemBar(h,"A3",52) = "Level0"
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"A2"
			.ItemBar(h,"A2",33) = 255
			.ItemBar(h,"A2",52) = "Level1"
			.AddBar h,"Task",#1/5/2001#,#1/8/2001#,"A4"
			.ItemBar(h,"A4",33) = 255
			.ItemBar(h,"A4",52) = "Level1"
			h1 = .AddItem("Default")
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1423
How can I use the exOverlaidBarsStack+exOverlaidBarsStackAutoArrange

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 22
		.Columns.Add "Task"
		.ScrollBySingleLine = True
		.BackColorAlternate = RGB(240,240,240)
		With .Chart
			.PaneWidth(False) = 48
			.FirstVisibleDate = #12/28/2000#
			.LevelCount = 2
			With .Bars.Item("Task")
				.OverlaidType = 515 ' OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
				.Def(3) = "<%=%9%>"
			End With
		End With
		With .Items
			h1 = .AddItem("Default")
			h = .AddItem("Overlaid")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"A2"
			.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A3"
			.AddBar h,"Task",#1/5/2001#,#1/8/2001#,"A4"
			h1 = .AddItem("Default")
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1422
How can I use the exOverlaidBarsStack

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 22
		.Columns.Add "Task"
		.ScrollBySingleLine = True
		.BackColorAlternate = RGB(240,240,240)
		With .Chart
			.PaneWidth(False) = 48
			.FirstVisibleDate = #12/28/2000#
			.LevelCount = 2
			With .Bars.Item("Task")
				.OverlaidType = 3
				.Def(3) = "<%=%9%>"
			End With
		End With
		With .Items
			h1 = .AddItem("Default")
			h = .AddItem("Overlaid")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"A2"
			.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A3"
			.AddBar h,"Task",#1/5/2001#,#1/8/2001#,"A4"
			h1 = .AddItem("Default")
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1421
How can I use the exOverlaidBarsIntersect

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 22
		.Columns.Add "Task"
		.ScrollBySingleLine = True
		.BackColorAlternate = RGB(240,240,240)
		With .Chart
			.PaneWidth(False) = 48
			.FirstVisibleDate = #12/28/2000#
			.LevelCount = 2
			With .Bars.Item("Task")
				.OverlaidType = 2
				.Overlaid(2) = "Progress"
				.Def(3) = "<%=%9%>"
			End With
		End With
		With .Items
			h1 = .AddItem("Default")
			h = .AddItem("Overlaid")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"A2"
			.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A3"
			.AddBar h,"Task",#1/5/2001#,#1/8/2001#,"A4"
			h1 = .AddItem("Default")
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1420
How can I use the exOverlaidBarsOffset

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 22
		.Columns.Add "Task"
		.ScrollBySingleLine = True
		.BackColorAlternate = RGB(240,240,240)
		With .Chart
			.PaneWidth(False) = 48
			.FirstVisibleDate = #12/28/2000#
			.LevelCount = 2
			With .Bars.Item("Task")
				.OverlaidType = 1
				.Def(3) = "<%=%9%>"
			End With
		End With
		With .Items
			h1 = .AddItem("Default")
			h = .AddItem("Overlaid")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"A2"
			.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A3"
			.AddBar h,"Task",#1/5/2001#,#1/8/2001#,"A4"
			h1 = .AddItem("Default")
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1419
Is it possible to specify the end of the project when using the SchedulePDM method
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 48
			.LevelCount = 2
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			.Link("L1",12) = "FS"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
			.Link("L2",12) = "SS"
			.Link("L2",6) = 0
			.Link("L2",7) = 0
			.DefSchedulePDM(0) = 2
			.DefSchedulePDM(1) = #1/8/2001#
			.SchedulePDM 0,"K1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1418
Is it possible to specify the start of the project when using the SchedulePDM method
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 48
			.LevelCount = 2
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			.Link("L1",12) = "FS"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
			.Link("L2",12) = "SS"
			.Link("L2",6) = 0
			.Link("L2",7) = 0
			.DefSchedulePDM(0) = 1
			.DefSchedulePDM(1) = #1/8/2001#
			.SchedulePDM 0,"K1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1417
How can I change the caption or the addition information being displayed in the Zoom-OnFly view

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/1/2001#
			.LevelCount = 2
			.AllowZoomOnFly = 24
			.ResizeUnitScale = 65536
			.Label(65536) = "<font ;5><b><%h%><br><%AM/PM%></b></font>"
			.ZoomOnFlyCaption = "<br><c><b><font ;12><%=%C0 + ' / <fgcolor=00FF00>' + %3%></font></fgcolor></b><br><solidline><upline><b>Start</b>:<%=%1%><br><b" & _
	">End</b>:<%=%2%><br><b>Duration</b>:<%=round(%2-%1) + ' days'%><br><b>Working</b>:<%='<b>' + int(%258) + '</b> days' + (0:=(%258" & _
	" - int(%258)) ? (' <fgcolor=FF0000><b>' + round(24 * =:0) + '</b> hours') : '') %>"
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"T1","T1"
			.AddBar h,"Task",#1/11/2001#,#1/14/2001#,"T3","T3"
			h = .AddItem()
			.AddBar h,"",#1/15/2001#,#1/15/2001#,"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown."
			.SelectableItem(h) = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1416
How can I change the scale in the Zoom-OnFly view

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/1/2001#
			.LevelCount = 2
			.AllowZoomOnFly = 24
			.ResizeUnitScale = 65536
			.Label(65536) = "<font ;5><b><%h%><br><%AM/PM%></b></font>"
			.ZoomOnFlyCaption = ""
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"T1","T1"
			.AddBar h,"Task",#1/11/2001#,#1/14/2001#,"T3","T3"
			h = .AddItem()
			.AddBar h,"",#1/15/2001#,#1/15/2001#,"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown."
			.SelectableItem(h) = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1415
Is it possible to change the Zoom-OnFly view's background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/1/2001#
			.LevelCount = 2
			.AllowZoomOnFly = 24
			.BackColorZoomOnFly = RGB(240,240,240)
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"T1","T1"
			.AddBar h,"Task",#1/11/2001#,#1/14/2001#,"T3","T3"
			h = .AddItem()
			.AddBar h,"",#1/15/2001#,#1/15/2001#,"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown."
			.SelectableItem(h) = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1414
How can I include the selected items in the Zoom-OnFly view

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/1/2001#
			.LevelCount = 2
			.AllowZoomOnFly = 792 ' ZoomOnFlyEnum.exZoomOnFlyIncludeSelectedItems Or ZoomOnFlyEnum.exZoomOnFly
			.SelBackColor = RGB(240,240,240)
			.SelectOnClick = False
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"T1","T1"
			.SelectItem(h) = True
			h = .AddItem("Task 2")
			.AddBar h,"Task",#1/11/2001#,#1/14/2001#,"T2","T2"
			h = .AddItem("Task 3")
			.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"T3","T3"
			h = .AddItem()
			.AddBar h,"",#1/15/2001#,#1/15/2001#,"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown."
			.SelectableItem(h) = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1413
Is it possible to include the neighbors items in the Zoom-OnFly view

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/1/2001#
			.LevelCount = 2
			.AllowZoomOnFly = 280 ' ZoomOnFlyEnum.exZoomOnFlyIncludeNeighborItems Or ZoomOnFlyEnum.exZoomOnFly
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"T1","T1"
			h = .AddItem("Task 2")
			.AddBar h,"Task",#1/11/2001#,#1/14/2001#,"T3","T3"
			h = .AddItem("Task 3")
			.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"T1","T1"
			h = .AddItem()
			.AddBar h,"",#1/15/2001#,#1/15/2001#,"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown."
			.SelectableItem(h) = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1412
How can I enable the Zoom-OnFly view

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.PaneWidth(False) = 48
			.FirstVisibleDate = #11/5/2000#
			.LevelCount = 2
			.UnitScale = 256
			.ResizeUnitScale = 4096
			.AllowZoomOnFly = 24
			.Bars.Item("Task").OverlaidType = 3
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/7/2001#,#1/17/2001#,"T1","T1"
			.AddBar h,"Task",#1/18/2001#,#2/24/2001#,"T3","T3"
			h = .AddItem()
			.AddBar h,"",#1/15/2001#,#1/15/2001#,"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown."
			.SelectableItem(h) = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1411
I am using the overlay bars on stack, can I somehow tell a type of bar, or a specific bar, to be always on top of all other’s. Like a Z-Index or something

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ScrollBySingleLine = True
		.Columns.Add "Task"
		.DrawGridLines = 1
		With .Chart
			.DrawGridLines = 1
			.AllowCreateBar = 1
			.AllowLinkBars = False
			.ResizeUnitScale = 65536
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/1/2001#
			.Bars.Item("Task").OverlaidType = 3
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A1","A1"
			.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A3","A3"
			.ItemBar(h,"A3",33) = 65280
			h = .AddItem("Task 2")
			.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A31","A31"
			.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A3","A3"
			.ItemBar(h,"A3",33) = 255
			.AddBar .AddItem(),"",#1/10/2001#,#1/10/2001#,,"The <b>Key</b> of the bar specifies the Z-Order when overlaying."
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1410
Is it possible to specify the z-order when using the overlaying feature

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Chart
			.NonworkingDays = 0
			.FirstVisibleDate = #9/17/2006#
			.PaneWidth(False) = 64
			.LevelCount = 2
			.Bars.Item("Task").OverlaidType = 4
		End With
		With .Items
			h1 = .AddItem("Task")
			.AddBar h1,"Task",#9/21/2006#,#9/27/2006#,"K1","K1"
			.AddBar h1,"Task",#9/23/2006#,#9/24/2006#,"K2","K2"
			.AddBar h1,"Task",#9/22/2006#,#9/25/2006#,"K3","K3"
			.AddBar h1,"Task",#9/21/2006#,#9/27/2006#,"T1","T1"
			.AddBar h1,"Task",#9/28/2006#,#9/29/2006#,"T2","T2"
			.AddBar h1,"Task",#9/30/2006#,#10/3/2006#,"T3","T3"
			.ItemBar(0,"<T*>",33) = 65280
			.ItemBar(0,"<K*>",52) = "A"
			.ItemBar(0,"<T*>",52) = "B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1409
I seen that there is no exBarStartColor, exBarEndColor, similar to exBarColor, is there any solution so I can display a different Start/End Color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			With .Bars.Copy("Summary","Aka1")
				.StartColor = RGB(255,0,0)
				.EndColor = RGB(0,0,255)
			End With
			With .Bars.Copy("Summary","Aka2")
				.StartColor = RGB(0,255,0)
				.EndColor = RGB(255,0,255)
			End With
		End With
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Item A")
			.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"B1"
			.ItemBar(h,"B1",0) = "Aka1"
			h = .AddItem("Item B")
			.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"B2"
			.ItemBar(h,"B2",0) = "Aka2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1408
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a snapshot
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.HTMLPicture("p1") = "c:\exontrol\images\card.png"
		.HTMLPicture("p2") = "c:\exontrol\images\sun.png"
		.AutoDrag = 11
		.LinesAtRoot = 0
		.HasLines = 2
		.ShowFocusRect = False
		.DefaultItemHeight = 26
		.Columns.Add "Task"
		With .Chart
			.ShowNonworkingDates = False
			.FirstVisibleDate = #12/29/2000#
			.PaneWidth(False) = 96
			.LevelCount = 2
			With .Bars.Item("Task")
				.Color = &H1000000
				.Height = 18
			End With
		End With
		With .Items
			h = .AddItem("<img>p1:32</img>Group 1")
			.CellValueFormat(h,0) = 1
			.ItemDivider(h) = 0
			.ItemBold(h) = True
			h1 = .InsertItem(h,,"Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .InsertItem(h,,"Task 2")
			.AddBar h2,"Task",#1/5/2001#,#1/7/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			.Link("L1",12) = "L1"
			h3 = .InsertItem(h,,"Task 3")
			.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
			.Link("L2",12) = "L2"
			h = .AddItem("<img>p2:32</img>Group 2")
			.CellValueFormat(h,0) = 1
			.ItemBold(h) = True
			.ItemDivider(h) = 0
			h1 = .InsertItem(h,,"Task")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			.ExpandItem(0) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1407
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a image
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.HTMLPicture("p1") = "c:\exontrol\images\card.png"
		.HTMLPicture("p2") = "c:\exontrol\images\sun.png"
		.Chart.PaneWidth(True) = 0
		var_HTMLPicture = .HTMLPicture("aka1")
		.HeaderHeight = 24
		.DefaultItemHeight = 48
		.DrawGridLines = -2
		.GridLineColor = RGB(240,240,240)
		.SelBackMode = 1
		.ColumnAutoResize = False
		.ContinueColumnScroll = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3
		End With
		.DataSource = rs
		.Columns.Item(0).Def(17) = 1
		.Columns.Item(0).FormatColumn = "value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`"
		.Columns.Item(0).Width = 112
		.Columns.Item(1).Def(0) = 1
		.Columns.Item(2).LevelKey = "1"
		.Columns.Item(3).LevelKey = "1"
		.Columns.Item(4).LevelKey = "1"
		.AutoDrag = 10
		.SingleSel = False
		With .Items
			h = .ItemByIndex(1)
			.SelectItem(h) = True
			h = .ItemByIndex(2)
			.SelectItem(h) = True
			h = .ItemByIndex(3)
			.SelectItem(h) = True
			.LockedItemCount(2) = 1
			h = .LockedItem(2,0)
			.CellValue(h,1) = "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, ..."
			.CellSingleLine(h,1) = False
			.CellValueFormat(h,1) = 1
			.CellHAlignment(h,1) = 1
			.ItemDivider(h) = 1
			.ItemDividerLineAlignment(h) = 2
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1406
How can copy and paste the selection to Microsoft Word, Excel or any OLE compliant application, as a text

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.PaneWidth(True) = 0
		.ColumnAutoResize = False
		.ContinueColumnScroll = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3
		End With
		.DataSource = rs
		.Columns.Item(2).LevelKey = "1"
		.Columns.Item(3).LevelKey = "1"
		.Columns.Item(4).LevelKey = "1"
		.AutoDrag = 9
		.SingleSel = False
		With .Items
			h = .ItemByIndex(1)
			.SelectItem(h) = True
			h = .ItemByIndex(3)
			.SelectItem(h) = True
			h = .ItemByIndex(4)
			.SelectItem(h) = True
			h = .ItemByIndex(5)
			.SelectItem(h) = True
			.LockedItemCount(2) = 1
			h = .LockedItem(2,0)
			.CellValue(h,0) = "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, Excel, ..."
			.CellSingleLine(h,0) = False
			.CellValueFormat(h,0) = 1
			.CellHAlignment(h,0) = 1
			.ItemDivider(h) = 0
			.ItemDividerLineAlignment(h) = 2
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1405
Is it possible to change the indentation during the drag and drop
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.AutoDrag = 3
		.LinesAtRoot = 0
		.HasLines = 1
		.HasButtons = 3
		.ShowFocusRect = False
		.SelBackMode = 1
		.Columns.Add "Task"
		With .Chart
			.ShowNonworkingDates = False
			.FirstVisibleDate = #12/29/2000#
			.PaneWidth(False) = 128
			.LevelCount = 2
			.Bars.Item("Task").Color = &H1000000
		End With
		With .Items
			h = .AddItem("Group 1")
			.ItemBold(h) = True
			.ItemDivider(h) = 0
			h1 = .InsertItem(h,,"Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .InsertItem(h1,,"Task 2")
			.AddBar h2,"Task",#1/15/2001#,#1/17/2001#,"K4"
			h2 = .InsertItem(h1,,"Task 3")
			.AddBar h2,"Task",#1/5/2001#,#1/7/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			.Link("L1",12) = "L1"
			h3 = .InsertItem(h,,"Task 3")
			.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
			.Link("L2",12) = "L2"
			.ExpandItem(h) = True
			.ExpandItem(h1) = True
			h = .AddItem("Group 2")
			.ItemBold(h) = True
			.ItemDivider(h) = 0
			.LockedItemCount(2) = 1
			h = .LockedItem(2,0)
			.CellValue(h,0) = "Click a row, and move by dragging <b>up, down</b> to change the row's parent or <b>left,right</b> to increase or decrease the i" & _
	"ndentation."
			.CellSingleLine(h,0) = False
			.CellValueFormat(h,0) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1404
Is it possible to allow moving an item to another, but keeping its indentation
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.AutoDrag = 2
		.LinesAtRoot = 0
		.HasLines = 2
		.ShowFocusRect = False
		.Columns.Add "Task"
		With .Chart
			.ShowNonworkingDates = False
			.FirstVisibleDate = #12/29/2000#
			.PaneWidth(False) = 96
			.LevelCount = 2
			.Bars.Item("Task").Color = &H1000000
		End With
		With .Items
			h = .AddItem("Group 1")
			.ItemDivider(h) = 0
			.ItemBold(h) = True
			h1 = .InsertItem(h,,"Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .InsertItem(h,,"Task 2")
			.AddBar h2,"Task",#1/5/2001#,#1/7/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			.Link("L1",12) = "L1"
			h3 = .InsertItem(h,,"Task 3")
			.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
			.Link("L2",12) = "L2"
			.ExpandItem(h) = True
			h = .AddItem("Group 2")
			.ItemBold(h) = True
			.ItemDivider(h) = 0
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1403
How can I change the row's position to another, by drag and drop. Is it possible
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.AutoDrag = 1
		.Columns.Add "Task"
		With .Chart
			.ShowNonworkingDates = False
			.FirstVisibleDate = #12/29/2000#
			.PaneWidth(False) = 64
			.LevelCount = 2
			.Bars.Item("Task").Color = &H1000000
		End With
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/5/2001#,#1/7/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			.Link("L1",12) = "L1"
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
			.Link("L2",12) = "L2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1402
Is it possible to scroll the control's content by clicking and moving the mouse up or down

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		With .Items
			.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #8/3/1994#
			.PaneWidth(False) = 256
			.LevelCount = 2
			.UnitScale = 4096
			.FirstWeekDay = 1
			.OverviewVisible = 2
		End With
		.ColumnAutoResize = False
		.ContinueColumnScroll = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3
		End With
		.DataSource = rs
		.AutoDrag = 16
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1401
How can I display bars so they fit the entire height ( height of the row )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.DefaultItemHeight = 36
		With .Chart
			.PaneWidth(False) = 164
			.FirstVisibleDate = #1/1/2001#
			.UnitWidth = 48
			.LevelCount = 2
			.UnitScale = 65536
			.NonworkingHours = 16253183
			.ShowNonworkingUnits = False
			.UnitWidth = 16
			.FirstVisibleDate = #1/1/2012 8:00:00 AM#
			.DrawGridLines = -1
			.Bars.Add("Empty").Pattern = 0
			With .Level(0)
				.Alignment = 17 ' AlignmentEnum.exHOutside Or AlignmentEnum.CenterAlignment
				.Label = "<%d2%>"
			End With
			.AllowLinkBars = False
			.AllowCreateBar = 0
			.BarsAllowSizing = False
			.AllowSelectObjects = 0
		End With
		.DrawGridLines = -1
		.ShowFocusRect = False
		With .Columns
			With .Add("CA")
				.Def(16) = False
				.Def(17) = 1
			End With
			With .Add("CB")
				.Def(16) = False
				.Def(17) = 1
			End With
		End With
		With .Items
			h = .AddItem("Address 1.1<br>Line 2.1<br>C1")
			.ItemMaxHeight(h) = 96
			.CellValue(h,1) = "Address 1.2<br>Line 2.2<br>C2"
			.AddBar h,"Empty",#1/2/2012 8:00:00 AM#,#1/2/2012 7:00:00 PM#,"A","This is a bit of text<br>being <font ;9>displayed ion the <b>bar A"
			.ItemBar(h,"A",7) = 16777471
			.ItemBar(h,"A",4) = 0
			.ItemBar(h,"A",5) = 2
			.AddBar h,"Empty",#1/3/2012 8:00:00 AM#,#1/3/2012 7:00:00 PM#,"B","<fgcolor=FFFFFF>This is a bit of text<br><fgcolor=FFFFFF>being <font ;9>displayed ion the <b>bar B"
			.ItemBar(h,"B",7) = 33488896
			.ItemBar(h,"B",4) = 2
			.ItemBar(h,"B",5) = 0
			.AddBar h,"Empty",#1/4/2012 8:00:00 AM#,#1/4/2012 7:00:00 PM#,"C","<font Tahoma;12><b>bar C"
			.ItemBar(h,"C",7) = 33489151
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>